﻿
Public Class Trick
    Private myPlayers As List(Of Player)
    Private myDealer As Player
    Private myLeadSuite As Suite
    Private myCardsPlayed As List(Of Play)
    Private myWinner As Player

    Public ReadOnly Property Winner As Player
        Get
            Return myWinner
        End Get
    End Property

    Public Sub New(ByVal dealer As Player, ByVal group As List(Of Player))
        myLeadSuite = Nothing
        myCardsPlayed = New List(Of Play)
        myWinner = Nothing
        myDealer = dealer
        myPlayers = group
    End Sub

    Public Sub Start()
        'TODO
        'Turn logic for choosing trump/GUI

        'TODO
        'Turn logic for playing trick

        'TODO
        'Determine winner based on cards played


    End Sub
End Class
